home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / bullseye.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-02-22  |  1.8 KB  |  53 lines
  1. 100  CLS
  2. 110  A$=STRING$(80,205)
  3. 120  PRINT A$
  4. 130  PRINT TAB(33)"BULLSEYE  #2002"
  5. 140  COLOR 23
  6. 150  PRINT :PRINT :PRINT TAB(39)"IPCO"
  7. 160  COLOR 7
  8. 170  PRINT :PRINT :PRINT TAB(25)"PERSONAL COMPUTER OWNERS GROUP"
  9. 180  PRINT :PRINT :PRINT TAB(19)"p.o. box 10426, pittsburgh, pennslyvania 15234"
  10. 190  PRINT A$
  11. 200  PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210  PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220  A$=INKEY$:IF A$="" THEN 220
  14. 230  CLS
  15. 240  PRINT  TAB(32);"BULLSEYE"
  16. 250  PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
  17. 260  PRINT:PRINT:PRINT
  18. 270  PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET"
  19. 280  PRINT "WITH 10, 20, 30, AND 40 POINT ZONES.  THE OBJECTIVE IS"
  20. 290  PRINT "TO GET 200 POINTS.": PRINT
  21. 300  PRINT  "THROW",TAB(20);"DESCRIPTION";TAB(45);"PROBABLE SCORE"
  22. 310  PRINT "1";TAB(20);"FAST OVERARM";TAB(45);"BULLSEYE OR COMPLETE MISS"
  23. 320   PRINT "2";TAB(20);"CONTROLLED OVERARM";TAB(45);"10, 20 OR 30 POINTS"
  24. 330  PRINT"3";TAB(20)"UNDERARM";TAB(45);"ANYTHING":PRINT
  25. 340  DIM A$(20),S(20),W(10): M=0 :R=0:FOR I=1 TO 20: S(I)=0:NEXT I
  26. 350  INPUT "HOW MANY PLAYERS";N:PRINT
  27. 360  FOR I=1 TO N
  28. 370  PRINT "NAME OF PLAYER #";I;:INPUT A$(I)
  29. 380  NEXT I
  30. 390  R=R+1:PRINT :PRINT  "ROUND";R
  31. 400  FOR I=1 TO N
  32. 410  PRINT :PRINT  A$(I)"'S THROW";: INPUT T
  33. 420  IF T<0 OR T>3 THEN PRINT "INPUT 1,2 OR 3!": GOTO  410
  34. 430  ON T GOTO 440, 450, 460
  35. 440  P1=0.65:P2=0.55: P3=0.5: P4=0.5: GOTO 470
  36. 450  P1=0.99: P2=0.77: P3=0.43: P4=0.01: GOTO 470
  37. 460  P1=0.95: P2=0.75: P3=0.45: P4=0.05
  38. 470  U=RND(1)
  39. 480  IF U>=P1 THEN PRINT "BULLESYE!!  40 POINTS!":B=40:GOTO 540
  40. 490  IF T=1 THEN 530
  41. 500  IF U>=P2 THEN PRINT "30-POINT ZONE!":B=30: GOTO 540
  42. 510  IF U>=P3 THEN PRINT "20-POINT ZONE":B=20: GOTO 540
  43. 520  IF U>=P4 THEN PRINT "WHEW! 10 POINTS.":B=10: GOTO 540
  44. 530  PRINT "MISSED THE TARGET!  TOO BAD.": B=0
  45. 540  S(I)=S(I)+B: PRINT "TOTAL SCORE =";S(I): NEXT I
  46. 550  FOR I =1 TO N
  47. 560  IF S(I)>=200 THEN M=M+1: W(M)=I
  48. 570  NEXT I
  49. 580  IF M=0 THEN 390
  50. 590  PRINT :PRINT  "WE HAVE A WINNER!!!":PRINT
  51. 600  FOR I=1 TO M:PRINT A$(W(I));"SCORED";S(W(I));"POINTS.":NEXT I
  52. 610  PRINT :PRINT  "THANKS OR THE GAME.":END
  53.